<% Set rs = Server.CreateObject("ADODB.Recordset") sql= "select count(*) from WR_Art" set rs = conn.execute(sql) T_Total = rs(0) rs.close set rs=nothing Set conn=Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.open connstr sql = "select Id,Title,Type,(select Type from WR_Class where WR_Class.Id=WR_Art.Type) as TypeName,Time from WR_Art order by Id Desc" rs.open sql,conn,1 if not rs.eof then rs.pagesize = 20 PageCount = rs.PageCount PageNo = request("PageNo") if not isnumeric(PageNo) then PageNo=1 end if if PageNo = "" or CInt(PageNo) < 1 then PageNo = 1 if CInt(PageNo) > PageCount then PageNo = PageCount rs.absolutepage = PageNo i=0 while not rs.eof and i29 then ATitle=left(ATitle,29)&".." end if ATime=rs("Time") %> <% i=i+1 rs.movenext wend end if rs.close %>

<%=ATitle%> <%=ATypeName%> <%=ATime%>

页次：<%=PageNO%>/<%=PageCount%> 记录条数：<%=T_Total%> 5第一页 3上一页 4下一页 6最后一页